home *** CD-ROM | disk | FTP | other *** search
Text File | 2005-11-17 | 30.9 KB | 1,206 lines |
- object FWebGallery: TFWebGallery
- Left = 151
- Top = 72
- BorderIcons = []
- BorderStyle = bsDialog
- Caption = 'Create Web Gallery'
- ClientHeight = 601
- ClientWidth = 681
- Color = clBtnFace
- Constraints.MinWidth = 480
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- KeyPreview = True
- OldCreateOrder = False
- Position = poDesktopCenter
- Scaled = False
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- OnKeyDown = FormKeyDown
- PixelsPerInch = 96
- TextHeight = 13
- object cntMain: TAMContainer
- Left = 185
- Top = 0
- Width = 496
- Height = 547
- Align = alClient
- Color = 14540768
- DoubleBuffered = False
- object BevelD: TbsSkinBevel
- Left = 3
- Top = 273
- Width = 485
- Height = 49
- Shape = bsFrame
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'bevel'
- DividerMode = False
- end
- object bvTemplateInfo: TbsSkinBevel
- Left = 235
- Top = 12
- Width = 254
- Height = 253
- Shape = bsFrame
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'bevel'
- DividerMode = False
- end
- object bvSaveTo: TbsSkinBevel
- Left = 4
- Top = 400
- Width = 485
- Height = 47
- Shape = bsFrame
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'bevel'
- DividerMode = False
- end
- object bvSize: TbsSkinBevel
- Left = 4
- Top = 88
- Width = 221
- Height = 177
- Shape = bsFrame
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'bevel'
- DividerMode = False
- end
- object bvName: TbsSkinBevel
- Left = 4
- Top = 12
- Width = 221
- Height = 61
- Shape = bsFrame
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'bevel'
- DividerMode = False
- end
- object LCAuthor: TLabel
- Left = 5
- Top = 470
- Width = 42
- Height = 13
- Caption = 'Author:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- end
- object LHomePage: TbsSkinLinkLabel
- Left = 109
- Top = 486
- Width = 57
- Height = 14
- Cursor = crHandPoint
- UseSkinFont = True
- DefaultActiveFontColor = clBlue
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 14
- DefaultFont.Name = 'Arial'
- DefaultFont.Style = [fsUnderline]
- SkinDataName = 'stdlabel'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = 14
- Font.Name = 'Tahoma'
- Font.Style = [fsUnderline]
- Caption = 'LHomePage'
- ParentFont = False
- end
- object LCHomepage: TLabel
- Left = 5
- Top = 486
- Width = 67
- Height = 13
- Caption = 'Home page:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- end
- object LCDescription: TLabel
- Left = 5
- Top = 502
- Width = 67
- Height = 13
- Caption = 'Description:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- end
- object LAuthor: TLabel
- Left = 109
- Top = 470
- Width = 33
- Height = 13
- Caption = 'Author'
- Transparent = True
- end
- object LDescription: TLabel
- Left = 109
- Top = 506
- Width = 380
- Height = 33
- AutoSize = False
- Caption = 'Description'
- Transparent = True
- WordWrap = True
- end
- object LCTemplateName: TLabel
- Left = 5
- Top = 454
- Width = 92
- Height = 13
- Caption = 'Template Name:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- end
- object LTemplateName: TLabel
- Left = 109
- Top = 454
- Width = 71
- Height = 13
- Caption = 'TemplateName'
- Transparent = True
- end
- object BevelA: TbsSkinBevel
- Left = 4
- Top = 340
- Width = 485
- Height = 49
- Shape = bsFrame
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'bevel'
- DividerMode = False
- end
- object LSelected: TLabel
- Left = 111
- Top = 360
- Width = 181
- Height = 13
- Caption = '150 photos selected. Total 100 pages'
- Transparent = True
- end
- object cbPagesPresets: TbsSkinComboBox
- Left = 19
- Top = 357
- Width = 76
- Height = 20
- TabOrder = 16
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'simplecombobox'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- AlphaBlend = False
- AlphaBlendValue = 0
- AlphaBlendAnimation = False
- ListBoxUseSkinFont = True
- ImageIndex = -1
- ListBoxCaptionMode = False
- ListBoxDefaultFont.Charset = DEFAULT_CHARSET
- ListBoxDefaultFont.Color = clWindowText
- ListBoxDefaultFont.Height = 14
- ListBoxDefaultFont.Name = 'Arial'
- ListBoxDefaultFont.Style = []
- ListBoxDefaultCaptionFont.Charset = DEFAULT_CHARSET
- ListBoxDefaultCaptionFont.Color = clWindowText
- ListBoxDefaultCaptionFont.Height = 14
- ListBoxDefaultCaptionFont.Name = 'Arial'
- ListBoxDefaultCaptionFont.Style = []
- ListBoxDefaultItemHeight = 20
- ListBoxCaptionAlignment = taLeftJustify
- TabStop = True
- Items.Strings = (
- '10'
- '25'
- '50'
- '75'
- '100'
- '150'
- '200')
- ItemIndex = -1
- DropDownCount = 8
- HorizontalExtent = False
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = 13
- Font.Name = 'Tahoma'
- Font.Style = []
- Sorted = False
- Style = bscbFixedStyle
- OnChange = cbPagesPresetsChange
- end
- object lSize: TAMLabel
- Left = 15
- Top = 80
- Width = 59
- Height = 15
- TabOrder = 10
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'label'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- BorderStyle = bvNone
- AutoSize = True
- Caption = 'Image Size:'
- AsLink = False
- LinkFont.Charset = DEFAULT_CHARSET
- LinkFont.Color = clWindowText
- LinkFont.Height = -11
- LinkFont.Name = 'MS Sans Serif'
- LinkFont.Style = []
- BusinessSkinForm = SkinForm
- end
- object lName: TAMLabel
- Left = 15
- Top = 5
- Width = 35
- Height = 15
- TabOrder = 11
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'label'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- BorderStyle = bvNone
- AutoSize = True
- Caption = 'Name:'
- AsLink = False
- LinkFont.Charset = DEFAULT_CHARSET
- LinkFont.Color = clWindowText
- LinkFont.Height = -11
- LinkFont.Name = 'MS Sans Serif'
- LinkFont.Style = []
- BusinessSkinForm = SkinForm
- end
- object lTemplateInfo: TAMLabel
- Left = 245
- Top = 3
- Width = 45
- Height = 15
- TabOrder = 12
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'label'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 14
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- BorderStyle = bvNone
- AutoSize = True
- Caption = 'Preview:'
- AsLink = False
- LinkFont.Charset = DEFAULT_CHARSET
- LinkFont.Color = clWindowText
- LinkFont.Height = -11
- LinkFont.Name = 'MS Sans Serif'
- LinkFont.Style = []
- BusinessSkinForm = SkinForm
- end
- object eNameEx: TAMEditPath
- Left = 15
- Top = 413
- Width = 458
- Height = 20
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- UseSkinFont = True
- DefaultWidth = 0
- DefaultHeight = 20
- ButtonMode = True
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'buttonedit'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = 13
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 8
- OnKeyDown = eNameExKeyDown
- Short = False
- UseAppend = False
- OnBrowsePath = eNameExBrowsePath
- OnBeforeBrowse = eNameExBeforeBrowse
- DirReadOnly = False
- end
- object rbSize1: TAMCheckRadioBox
- Left = 16
- Top = 114
- Width = 72
- Height = 18
- TabOrder = 1
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'radiobox'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- ForcedColorUse = False
- ForcedColor = clBlack
- BusinessSkinForm = SkinForm
- Flat = True
- CanFocused = False
- Radio = True
- Checked = False
- GroupIndex = 1
- Caption = ' Original size'
- OnClick = rbSize5Click
- AutoSize = True
- end
- object rbSize2: TAMCheckRadioBox
- Left = 16
- Top = 136
- Width = 63
- Height = 18
- TabOrder = 2
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'radiobox'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- ForcedColorUse = False
- ForcedColor = clBlack
- BusinessSkinForm = SkinForm
- Flat = True
- CanFocused = False
- Radio = True
- Checked = False
- GroupIndex = 1
- Caption = ' 320 pixels'
- OnClick = rbSize5Click
- AutoSize = True
- end
- object rbSize3: TAMCheckRadioBox
- Left = 16
- Top = 158
- Width = 63
- Height = 18
- TabOrder = 3
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'radiobox'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- ForcedColorUse = False
- ForcedColor = clBlack
- BusinessSkinForm = SkinForm
- Flat = True
- CanFocused = False
- Radio = True
- Checked = False
- GroupIndex = 1
- Caption = ' 640 pixels'
- OnClick = rbSize5Click
- AutoSize = True
- end
- object rbSize4: TAMCheckRadioBox
- Left = 16
- Top = 180
- Width = 69
- Height = 18
- TabOrder = 4
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'radiobox'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- ForcedColorUse = False
- ForcedColor = clBlack
- BusinessSkinForm = SkinForm
- Flat = True
- CanFocused = False
- Radio = True
- Checked = False
- GroupIndex = 1
- Caption = ' 1024 pixels'
- OnClick = rbSize5Click
- AutoSize = True
- end
- object rbSize5: TAMCheckRadioBox
- Left = 16
- Top = 202
- Width = 72
- Height = 18
- TabOrder = 5
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'radiobox'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- ForcedColorUse = False
- ForcedColor = clBlack
- BusinessSkinForm = SkinForm
- Flat = True
- CanFocused = False
- Radio = True
- Checked = False
- GroupIndex = 1
- Caption = ' Custom size'
- OnClick = rbSize5Click
- AutoSize = True
- end
- object cmPresetImageSize: TbsSkinComboBox
- Left = 131
- Top = 201
- Width = 90
- Height = 20
- TabOrder = 7
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'simplecombobox'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = False
- AlphaBlend = False
- AlphaBlendValue = 0
- AlphaBlendAnimation = False
- ListBoxUseSkinFont = True
- ImageIndex = -1
- ListBoxCaptionMode = False
- ListBoxDefaultFont.Charset = DEFAULT_CHARSET
- ListBoxDefaultFont.Color = clWindowText
- ListBoxDefaultFont.Height = 13
- ListBoxDefaultFont.Name = 'Tahoma'
- ListBoxDefaultFont.Style = []
- ListBoxDefaultCaptionFont.Charset = DEFAULT_CHARSET
- ListBoxDefaultCaptionFont.Color = clWindowText
- ListBoxDefaultCaptionFont.Height = 13
- ListBoxDefaultCaptionFont.Name = 'Tahoma'
- ListBoxDefaultCaptionFont.Style = []
- ListBoxDefaultItemHeight = 20
- ListBoxCaptionAlignment = taLeftJustify
- Enabled = False
- TabStop = True
- Items.Strings = (
- '400'
- '640'
- '800'
- '1024'
- '1280'
- '1600')
- ItemIndex = -1
- DropDownCount = 8
- HorizontalExtent = False
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = 13
- Font.Name = 'Tahoma'
- Font.Style = []
- Sorted = False
- Style = bscbFixedStyle
- OnChange = cmPresetImageSizeChange
- end
- object eImageWidth: TAMEditGauge
- Left = 131
- Top = 201
- Width = 71
- Height = 16
- Text = '640'
- Precision = 0
- MinValue = 1
- MaxValue = 8192
- zTag = 1
- ChangeOnEnter = False
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- UseSkinFont = True
- DefaultWidth = 0
- DefaultHeight = 16
- ButtonMode = False
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'editlight'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clGrayText
- Font.Height = 13
- Font.Name = 'Tahoma'
- Font.Style = []
- AutoSelect = False
- Enabled = False
- ParentFont = False
- TabOrder = 6
- end
- object eGalleryName: TbsSkinEdit
- Left = 16
- Top = 33
- Width = 193
- Height = 20
- Text = 'My Gallery'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- UseSkinFont = True
- DefaultWidth = 0
- DefaultHeight = 20
- ButtonMode = False
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'editlight'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = 13
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- OnChange = eGalleryNameChange
- end
- object rbSize6: TAMCheckRadioBox
- Left = 16
- Top = 224
- Width = 99
- Height = 18
- TabOrder = 9
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'radiobox'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- ForcedColorUse = False
- ForcedColor = clBlack
- BusinessSkinForm = SkinForm
- Flat = True
- CanFocused = False
- Radio = True
- Checked = True
- GroupIndex = 1
- Caption = ' Get from template'
- OnClick = rbSize5Click
- AutoSize = True
- end
- object AMContainer1: TAMContainer
- Left = 251
- Top = 20
- Width = 220
- Height = 236
- Color = clSilver
- BorderWidth = 1
- DoubleBuffered = False
- object PScreenshot: TImage
- Left = 0
- Top = 0
- Width = 218
- Height = 234
- Align = alClient
- end
- end
- object LThumbsPerPage: TAMLabel
- Left = 14
- Top = 330
- Width = 106
- Height = 21
- TabOrder = 13
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'label'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- BorderStyle = bvNone
- AutoSize = True
- Caption = 'Thumbnails per page:'
- AsLink = False
- LinkFont.Charset = DEFAULT_CHARSET
- LinkFont.Color = clWindowText
- LinkFont.Height = -11
- LinkFont.Name = 'MS Sans Serif'
- LinkFont.Style = []
- BusinessSkinForm = SkinForm
- end
- object seThumbcount: TbsSkinSpinEdit
- Left = 19
- Top = 357
- Width = 56
- Height = 16
- TabOrder = 14
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'spinedit'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 16
- UseSkinFont = True
- ValueType = vtInteger
- MinValue = 1
- MaxValue = 30
- Value = 5
- Increment = 1
- EditorEnabled = True
- MaxLength = 0
- OnChange = seThumbcountChange
- end
- object LSaveTo: TAMLabel
- Left = 13
- Top = 388
- Width = 44
- Height = 21
- TabOrder = 17
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'label'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- BorderStyle = bvNone
- AutoSize = True
- Caption = 'Save to:'
- AsLink = False
- LinkFont.Charset = DEFAULT_CHARSET
- LinkFont.Color = clWindowText
- LinkFont.Height = -11
- LinkFont.Name = 'MS Sans Serif'
- LinkFont.Style = []
- BusinessSkinForm = SkinForm
- end
- object eQuality: TAMEditGauge
- Left = 214
- Top = 285
- Width = 74
- Height = 16
- Text = '7'
- ValueChange = eQualityValueChange
- Precision = 0
- Value = 7
- MaxValue = 10
- zTag = 1
- ChangeOnEnter = False
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- UseSkinFont = True
- DefaultWidth = 0
- DefaultHeight = 16
- ButtonMode = False
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'editlight'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = 13
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- TabOrder = 18
- OnKeyPress = eQualityKeyPress
- end
- object cmPresetQuality: TbsSkinComboBox
- Tag = 3
- Left = 298
- Top = 285
- Width = 91
- Height = 19
- TabOrder = 19
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'simplecombobox'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 11
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- AlphaBlend = False
- AlphaBlendValue = 0
- AlphaBlendAnimation = False
- ListBoxUseSkinFont = True
- ImageIndex = -1
- ListBoxCaptionMode = False
- ListBoxDefaultFont.Charset = DEFAULT_CHARSET
- ListBoxDefaultFont.Color = clWindowText
- ListBoxDefaultFont.Height = 13
- ListBoxDefaultFont.Name = 'Tahoma'
- ListBoxDefaultFont.Style = []
- ListBoxDefaultCaptionFont.Charset = DEFAULT_CHARSET
- ListBoxDefaultCaptionFont.Color = clWindowText
- ListBoxDefaultCaptionFont.Height = 13
- ListBoxDefaultCaptionFont.Name = 'Tahoma'
- ListBoxDefaultCaptionFont.Style = []
- ListBoxDefaultItemHeight = 20
- ListBoxCaptionAlignment = taLeftJustify
- TabStop = True
- Text = 'HIGH'
- Items.Strings = (
- 'LOW'
- 'MEDIUM'
- 'HIGH'
- 'MAXIMUM')
- ItemIndex = 2
- DropDownCount = 8
- HorizontalExtent = False
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = 11
- Font.Name = 'Tahoma'
- Font.Style = []
- Sorted = False
- Style = bscbFixedStyle
- OnChange = cmPresetQualityChange
- end
- object gQuality: TbsSkinSlider
- Left = 16
- Top = 283
- Width = 180
- Height = 33
- TabOrder = 20
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'slider'
- BusinessSkinForm = SkinForm
- Options = [soSmooth]
- TabStop = False
- Value = 70
- Transparent = True
- UseSkinThumb = True
- OnChange = gQualityChange
- end
- object LQuality: TAMLabel
- Left = 14
- Top = 263
- Width = 39
- Height = 21
- TabOrder = 21
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'label'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- BorderStyle = bvNone
- AutoSize = True
- Caption = 'Quality:'
- AsLink = False
- LinkFont.Charset = DEFAULT_CHARSET
- LinkFont.Color = clWindowText
- LinkFont.Height = -11
- LinkFont.Name = 'MS Sans Serif'
- LinkFont.Style = []
- BusinessSkinForm = SkinForm
- end
- end
- object cntPresets: TAMContainer
- Left = 0
- Top = 0
- Width = 185
- Height = 547
- Align = alLeft
- Color = 14540768
- DoubleBuffered = False
- object bvPresets: TbsSkinBevel
- Left = 9
- Top = 12
- Width = 168
- Height = 461
- Shape = bsFrame
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'bevel'
- DividerMode = False
- end
- object lMoreTemplates: TbsSkinLinkLabel
- Left = 24
- Top = 448
- Width = 88
- Height = 13
- Cursor = crHandPoint
- UseSkinFont = True
- DefaultActiveFontColor = clBlue
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = [fsUnderline]
- SkinDataName = 'stdlabel'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = 13
- Font.Name = 'Tahoma'
- Font.Style = [fsUnderline]
- Caption = 'More Templates...'
- ParentFont = False
- OnClick = lMoreTemplatesClick
- end
- object lTemplates: TAMLabel
- Left = 19
- Top = 4
- Width = 56
- Height = 16
- TabOrder = 0
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'label'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- BorderStyle = bvNone
- AutoSize = True
- Caption = 'Templates:'
- AsLink = False
- LinkFont.Charset = DEFAULT_CHARSET
- LinkFont.Color = clWindowText
- LinkFont.Height = -11
- LinkFont.Name = 'MS Sans Serif'
- LinkFont.Style = []
- BusinessSkinForm = SkinForm
- end
- object AMContainer3: TAMContainer
- Left = 22
- Top = 24
- Width = 142
- Height = 415
- Color = clSilver
- BorderWidth = 1
- DoubleBuffered = False
- object LBTemplateList: TbsSkinListView
- Left = 0
- Top = 0
- Width = 118
- Height = 413
- Align = alClient
- Color = clWhite
- Columns = <>
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = 13
- Font.Name = 'Tahoma'
- Font.Style = []
- HideSelection = False
- LargeImages = CarcassList
- ParentFont = False
- TabOrder = 0
- HeaderSkinDataName = 'resizebutton'
- VScrollBar = bsSkinScrollBar2
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- UseSkinFont = True
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'listview'
- DefaultColor = clWhite
- OnCustomDrawItem = LBTemplateListCustomDrawItem
- OnDblClick = LBTemplateListDblClick
- OnSelectItem = LBTemplateListSelectItem
- end
- object bsSkinScrollBar2: TbsSkinScrollBar
- Left = 118
- Top = 0
- Width = 22
- Height = 413
- TabOrder = 1
- Visible = False
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'vscrollbar'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 14
- DefaultFont.Name = 'Arial'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- Both = False
- BothMarkerWidth = 0
- BothSkinDataName = 'bothhscrollbar'
- CanFocused = False
- Align = alRight
- Kind = sbVertical
- PageSize = 457
- Min = 0
- Max = 907
- Position = 0
- SmallChange = 41
- LargeChange = 41
- AutoLargeChange = False
- end
- end
- object bMore: TbsSkinButton
- Left = 17
- Top = 371
- Width = 75
- Height = 24
- TabOrder = 1
- Visible = False
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'buttonlight'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- AllowAllUp = False
- TabStop = True
- CanFocused = True
- Down = False
- GroupIndex = 0
- Caption = 'Get more ...'
- NumGlyphs = 2
- Spacing = 1
- end
- end
- object cntBottom: TAMContainer
- Left = 0
- Top = 547
- Width = 681
- Height = 54
- Align = alBottom
- Color = 14540768
- DoubleBuffered = False
- object bvBottom: TbsSkinBevel
- Left = 1
- Top = 0
- Width = 695
- Height = 12
- Shape = bsTopLine
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'bevel'
- DividerMode = False
- end
- object bOk: TbsSkinButton
- Left = 422
- Top = 14
- Width = 75
- Height = 24
- TabOrder = 0
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'buttonlight'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- AllowAllUp = False
- TabStop = True
- CanFocused = True
- Down = False
- GroupIndex = 0
- Caption = 'Ok'
- NumGlyphs = 2
- Spacing = 1
- Default = True
- OnClick = bOkClick
- end
- object bCancel: TbsSkinButton
- Left = 589
- Top = 14
- Width = 75
- Height = 24
- TabOrder = 1
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'buttonlight'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- AllowAllUp = False
- TabStop = True
- CanFocused = True
- Down = False
- GroupIndex = 0
- Caption = 'Cancel'
- NumGlyphs = 2
- Spacing = 1
- Cancel = True
- ModalResult = 2
- end
- object bView: TbsSkinButton
- Left = 505
- Top = 14
- Width = 76
- Height = 24
- TabOrder = 2
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'buttonlight'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- AllowAllUp = False
- TabStop = True
- CanFocused = True
- Down = False
- GroupIndex = 0
- Caption = 'View Last'
- NumGlyphs = 2
- Spacing = 1
- OnClick = bViewClick
- end
- end
- object SkinForm: TbsBusinessSkinForm
- GradientStartColor = clBlack
- GradientEndColor = clBlack
- DrawBackground = True
- ShowIcon = False
- MaximizeOnFullScreen = False
- AlphaBlend = False
- AlphaBlendAnimation = False
- AlphaBlendValue = 200
- ShowObjectHint = False
- MenusAlphaBlend = False
- MenusAlphaBlendAnimation = False
- MenusAlphaBlendValue = 200
- DefCaptionFont.Charset = DEFAULT_CHARSET
- DefCaptionFont.Color = clBtnText
- DefCaptionFont.Height = 13
- DefCaptionFont.Name = 'Tahoma'
- DefCaptionFont.Style = [fsBold]
- DefInActiveCaptionFont.Charset = DEFAULT_CHARSET
- DefInActiveCaptionFont.Color = clBtnShadow
- DefInActiveCaptionFont.Height = 13
- DefInActiveCaptionFont.Name = 'Tahoma'
- DefInActiveCaptionFont.Style = [fsBold]
- DefMenuItemHeight = 20
- DefMenuItemFont.Charset = DEFAULT_CHARSET
- DefMenuItemFont.Color = clWindowText
- DefMenuItemFont.Height = 13
- DefMenuItemFont.Name = 'Tahoma'
- DefMenuItemFont.Style = []
- UseDefaultSysMenu = True
- SkinData = SkinDataModule.SkinDataDlg
- MinHeight = 0
- MinWidth = 480
- Magnetic = False
- MagneticSize = 5
- BorderIcons = [biSystemMenu, biMinimize, biMaximize, biRollUp]
- Left = 168
- Top = 480
- end
- object IO: TImageEnIO
- PreviewFont.Charset = DEFAULT_CHARSET
- PreviewFont.Color = clWindowText
- PreviewFont.Height = -11
- PreviewFont.Name = 'MS Sans Serif'
- PreviewFont.Style = []
- Left = 104
- Top = 296
- end
- object CarcassList: TImageList
- Height = 70
- Width = 90
- Left = 112
- Top = 264
- end
- object ImgList: TImageList
- Height = 60
- Width = 80
- Left = 128
- Top = 328
- end
- end
-